home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / move.asm < prev    next >
Assembly Source File  |  1985-06-03  |  2KB  |  75 lines
  1.  
  2.  
  3.         PAGE    66,132 
  4.         TITLE   "REASSEMBLED FILE MOVE COMMAND - REWORKED FOR RESIDENT" 
  5. ; 
  6. ;INITIAL VALUES :       CS:IP   0000:0100 
  7. ;                       SS:SP   0000:FFFF 
  8. FMOVE   SEGMENT 
  9.         ASSUME DS:FMOVE, CS:FMOVE 
  10.         ORG     0100H 
  11. MOVER   PROC    NEAR 
  12.         MOV     CL,DS:80H 
  13.         MOV     CH,0 
  14.         CMP     BYTE PTR DS:80H,0 
  15.         JZ      L0165 
  16.         MOV     DI,81H 
  17.         MOV     AL,20H  ;' ' 
  18.         REPZ    SCASB 
  19.         JCXZ    L0165 
  20.         MOV     DX,DI 
  21.         DEC     DX 
  22.         REPNZ   SCASB 
  23.         JCXZ    L016D 
  24.         MOV     BX,DI 
  25.         DEC     BX 
  26.         REPZ    SCASB 
  27.         JCXZ    L016D 
  28.         MOV     BYTE PTR [BX],0 
  29.         PUSH    DI 
  30.         REPNZ   SCASB 
  31.         MOV     BYTE PTR [DI],0 
  32.         POP     DI 
  33.         DEC     DI 
  34.         MOV     AH,56H  ;'V' 
  35.         INT     21H 
  36.         JB      CHECRETURN 
  37.         RET 
  38. CHECRETURN: 
  39.         CMP     AX,3 
  40.         JNZ     L0143 
  41.         MOV     DX,OFFSET L01CB 
  42.         MOV     AH,9 
  43.         INT     21H 
  44.         RET 
  45.  
  46. L0143:  CMP     AX,5 
  47.         JNZ     L0150 
  48.         MOV     DX,OFFSET L01E4 
  49.         JMP     MSEXIT 
  50. L0150:  CMP     AX,11H 
  51.         JNZ     L015D 
  52.         JMP     MSEXIT 
  53. L015D:  MOV     DX,OFFSET L0175 
  54.         JMP     MSEXIT 
  55. L0165:  MOV     DX,OFFSET L0193 
  56.         JMP     MSEXIT 
  57. L016D:  MOV     DX,OFFSET L01AF 
  58. ; 
  59. MSEXIT: 
  60.         MOV     AH,9 
  61.         INT     21H 
  62.         RET 
  63. MOVER   ENDP 
  64. ; 
  65. L0175   DB      'Unknown error in MOVE command$' 
  66. L0193   DB      'Invalid or missing operands$' 
  67. L01AF   DB      'Invalid or missing new name$' 
  68. L01CB   DB      'Specified path not found$' 
  69. L01E4   DB      'Access denied$' 
  70. L01F2   DB      'To/from not the same device$' 
  71.         DB      72H DUP(0) 
  72.         FMOVE   ENDS
  73. ;
  74.         END     MOVER
  75.